function [R,C,Sens]=celdas_rchlp(Wp,Qp,G,Wz,seteados)
    %Setea R1 y R2
    R=ones(3,1);
    C=ones(2,1);
    
    R(1)=seteados(1);
    R(2)=seteados(2);
    
    R(3) = 1/G*R(1);

    C(2) = 1/(Wp*Qp*(R(2)*(1+1/G)+R(1)));
    C(1) = 1/(Wp^2*C(2)*R(2)*R(1));
    
    Sens = [SenRauchW();SenRauchQ(R,C);SenRauchG();zeros(1,5)];
    Sens = Sens';
end

function [senW]= SenRauchW()
    senW(1) = -0.5;
    senW(2) = -0.5;
    senW(3) = 0;
    senW(4) = -0.5;
    senW(5) = -0.5;
end

function [senG]= SenRauchG()
    senG(1) = 1;
    senG(2) = 0;
    senG(3) = -1;
    senG(4) = 0;
    senG(5) = 0;
end

function [senQ]= SenRauchQ(R,C)
    senQ(1) = -0.5*(R(1)*R(2)+R(1)*R(3)-R(2)*R(3))/(R(1)*R(2)+R(1)*R(3)+R(2)*R(3));
    senQ(2) = -0.5*(R(1)*R(2)-R(1)*R(3)+R(2)*R(3))/(R(1)*R(2)+R(1)*R(3)+R(2)*R(3));
    senQ(3) = R(1)*R(2)/(R(1)*R(2)+R(3)*(R(1)+R(2)));
    senQ(4) = 0.5;
    senQ(5) = -0.5;
end